home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / READSTR.M < prev    next >
Encoding:
Text File  |  1989-07-07  |  573 b   |  30 lines
  1.  
  2. MODULE ReadTest; (*$E MOS *)
  3.  
  4. IMPORT TOSIO, InOut;
  5.  
  6. VAR str1  : ARRAY [0..0] OF CHAR;
  7.     ch    : CHAR;
  8.     count : INTEGER;
  9.  
  10. BEGIN
  11.   InOut.RedirectInput ("D:\TMP\T.DAT");
  12.   LOOP
  13.     InOut.ReadString (str1);
  14.     IF NOT InOut.Done THEN
  15.       EXIT
  16.     END;
  17.     InOut.WriteString (str1);
  18.     IF InOut.termCH = InOut.EOL THEN
  19.       INC (count);
  20.       InOut.WriteLn;
  21.     END;
  22.   END (* LOOP *);
  23.   InOut.CloseInput;
  24.  
  25.   InOut.WriteLn;
  26.   InOut.WriteString ("Testende. Gelesene Strings: ");
  27.   InOut.WriteInt (count, 5);
  28.   InOut.Read (ch);
  29. END ReadTest.
  30.